home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
edit
/
yame.zip
/
YSAMPLE2.FMT
< prev
next >
Wrap
Text File
|
1993-08-22
|
3KB
|
88 lines
*---------------------------------------------------------------------
* Name.......: YSAMPLE2.FMT
* Date.......: 8-22-93
* Version....: dBASE IV, Format 2.0
* Notes......: Format files use "" as delimiters!
*---------------------------------------------------------------------
*-- Format file initialization code --------------------------------------------
*-- Some of these PRIVATE variables are created based on CodeGen and may not
*-- be used by your particular .fmt file
PRIVATE ll_talk, ll_cursor, lc_display, lc_status, ll_carry, lc_proc
IF SET("TALK") = "ON"
SET TALK OFF
ll_talk = .T.
ELSE
ll_talk = .F.
ENDIF
ll_cursor = SET("CURSOR") = "ON"
SET CURSOR ON
lc_display = SET("DISPLAY")
lc_status = SET("STATUS")
*-- SET STATUS was OFF when you went into the Forms Designer.
IF lc_status = "ON"
SET STATUS OFF
ENDIF
*-- Window for memo field Arg_pro.
DEFINE WINDOW wndow1 FROM 11,0 TO 19,39
*-- Window for memo field Arg_con.
DEFINE WINDOW wndow2 FROM 11,40 TO 19,79
*-- @ SAY GETS Processing. -----------------------------------------------------
*-- Format Page: 1
@ 1,1 SAY "Multiple memos: if you use more than one memo, you can set your global"
@ 2,1 SAY "defaults in the CONFIG.DB file, and use YAMEPARM for each different memo. For"
@ 3,1 SAY "example, you can use the same defaults as the single-memo app in YSAMPLES.CFG:"
@ 4,23 SAY "WP = Y /@10,10,18,69 /bd /ss /m57"
@ 5,1 SAY "the border (/bd) and save mode (/ss), and change the coordinates and margins"
@ 6,1 SAY "for each memo by using CALL( "
@ 6,30 SAY ["]
@ 6,31 SAY "YAMEPARM"
@ 6,39 SAY ["]
@ 6,40 SAY " ) in the field's Permit edit if option"
@ 7,0 SAY "────────────────────────────────────────────────────────────────────────────────"
@ 8,27 SAY "Topic"
@ 8,33 GET Topic PICTURE "XXXXXXXXXXXXXXXXXXXX"
@ 10,14 SAY "Argument FOR"
@ 10,52 SAY "Argument AGAINST"
@ 11,0 GET Arg_pro OPEN WINDOW wndow1 ;
WHEN call( "YAMEPARM", "/@11,0,19,39 /m37" ) = "T" ;
MESSAGE "Press CTRL-HOME to edit, then CTRL-END to save"
@ 11,40 GET Arg_con OPEN WINDOW wndow2 ;
WHEN call( "YAMEPARM", "/@11,40,19,79 /m37" ) = "T" ;
MESSAGE "Press CTRL-HOME to edit, then CTRL-END to save"
@ 20,11 SAY "/@11,0,19,39 /m37"
@ 20,51 SAY "/@11,40,19,79 /m37"
@ 22,28 SAY "by"
@ 22,31 GET Author PICTURE "XXXXXXXXXXXXXXXXXXXX"
*-- Format file exit code -----------------------------------------------------
*-- SET STATUS was OFF when you went into the Forms Designer.
IF lc_status = "ON" && Entered form with status on
SET STATUS ON && Turn STATUS "ON" on the way out
ENDIF
IF .NOT. ll_cursor
SET CURSOR OFF
ENDIF
IF SET( "DISPLAY" ) <> lc_display
SET DISPLAY TO &lc_display. && Reset Screen size if changed
ENDIF
RELEASE WINDOWS wndow1,wndow2
RELEASE lc_fields,lc_status
IF TYPE( "ll_echo" ) = "L"
IF ll_echo
SET ECHO ON
ENDIF
ENDIF
IF ll_talk
SET TALK ON
ENDIF
*-- EOP: YSAMPLE2.FMT